Profile of (eval 163)[CGI/Compile.pm:12]

Filename	(eval 163)[/usr/share/perl5/CGI/Compile.pm:12]
Statements	Executed 15 statements in 572µs
Eval Invoked At	/usr/share/perl5/CGI/Compile.pm line 12

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	100ns	100ns	CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@2

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1	1	38µs			package CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;
2	14	534µs	5	151µs	# spent 100ns within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@2 which was called: # once (100ns+0s) by CGI::Compile::_eval at line 2 CGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, '<', \$data;}local @SIG{keys %SIG} = do { no warnings 'uninitialized'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] }; # spent 83µs making 1 call to File::pushd::pushd # spent 44µs making 1 call to CGI::initialize_globals # spent 24µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:open # spent 100ns making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@2 # spent 0s making 1 call to warnings::unimport
3					#line 1 /home/vagrant/kohaclone/plack.pl
4					#!/usr/bin/perl
5
6					use Modern::Perl;
7					use CGI;
8					use C4::Output;
9					use Koha::Libraries;
10					for my $l (qw(CPL MPL IPT )) {
11					Koha::Libraries->find($l)->branchname;
12					}
13
14					my $query = CGI->new;
15					print $query->header({
16					type => 'text/html',
17					status => '200 OK',
18					charset => 'UTF-8',
19					Pragma => 'no-cache',
20					});
21					print "<html><body>Hello</body></html>";
22
23					#my $cookie = undef;
24					#output_html_with_http_headers $query, $cookie, "<html><body>Hello</body></html>";
25
26					};
27					my $self = shift;
28					my $exit_val = unpack('C', pack('C', sprintf('%.0f', $rv)));
29					if ($@) {
30					die $@ unless (
31					ref($@) eq 'ARRAY' and
32					$@->[0] eq "EXIT\n"
33					);
34					my $exit_param = unpack('C', pack('C', sprintf('%.0f', $@->[1])));
35
36					if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {
37					die "exited nonzero: $exit_param";
38					}
39
40					$exit_val = $exit_param;
41					}
42
43					return $exit_val;
44					};
45					;